home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_12_fold hand.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.7 KB  |  75 lines
  1. property pSprite, spriteNum, pNormal, pRollover, pPressed, pDisabled, pActive
  2. global gMessageBox, gCardSprites, gBet, gHand, gBetUI, gPlayerUI
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   pNormal = pSprite.member
  7.   gPlayerUI.addProp(pNormal.name.symbol, pSprite)
  8.   pRollover = member(pSprite.member.name && "over")
  9.   pPressed = member(pSprite.member.name && "down")
  10.   pDisabled = member(pSprite.member.name && "dis")
  11.   pActive = 1
  12.   me.toggleActive(#off)
  13. end
  14.  
  15. on mouseEnter me
  16.   if pActive then
  17.     pSprite.member = pRollover
  18.   end if
  19. end
  20.  
  21. on toggleActive me, onOff
  22.   case onOff of
  23.     #on:
  24.       pSprite.member = pNormal
  25.       pActive = 1
  26.     #off:
  27.       pSprite.member = pDisabled
  28.       pActive = 0
  29.   end case
  30. end
  31.  
  32. on mouseLeave me
  33.   if pActive then
  34.     pSprite.member = pNormal
  35.   end if
  36. end
  37.  
  38. on mouseDown me
  39.   if pActive then
  40.     pSprite.member = pPressed
  41.   end if
  42. end
  43.  
  44. on mouseUp me
  45.   if pActive then
  46.     pSprite.member = pNormal
  47.     gBet.mClearAnte()
  48.     gBet.mResetBet()
  49.     gPlayerUI[#fold].toggleActive(#off)
  50.     gPlayerUI[#callbet].toggleActive(#off)
  51.     gHand[#player]._cards.deleteAll()
  52.     gHand[#dealer]._cards.deleteAll()
  53.     s = the ticks + 50
  54.     repeat while the ticks < s
  55.       updateStage()
  56.     end repeat
  57.     repeat with who in [#dealer, #player]
  58.       repeat with i = 1 to gCardSprites[who].count
  59.         gCardSprites[who][i].member = member("invisible_card")
  60.         s = the ticks + 5
  61.         repeat while the ticks < s
  62.           updateStage()
  63.         end repeat
  64.       end repeat
  65.     end repeat
  66.     gMessageBox.text = EMPTY
  67.     repeat with i in gBetUI
  68.       if (i.pAmount * 3) > gBet.pCreditBalance then
  69.         next repeat
  70.       end if
  71.       i.toggleActive(#on)
  72.     end repeat
  73.   end if
  74. end
  75.